package org.lizar.util;

import java.io.File;
import java.io.FileFilter;
import java.io.IOException;
import java.lang.reflect.Method;
import java.net.JarURLConnection;
import java.net.URL;
import java.net.URLDecoder;
import java.util.Enumeration;
import java.util.Set;
import java.util.jar.JarEntry;
import java.util.jar.JarFile;

import javassist.ClassClassPath;
import javassist.ClassPool;
import javassist.CtClass;
import javassist.CtMethod;
import javassist.Modifier;
import javassist.NotFoundException;
import javassist.bytecode.CodeAttribute;
import javassist.bytecode.LocalVariableAttribute;
import javassist.bytecode.MethodInfo;

import org.lizar.ioc.Cell;
import org.lizar.log.Log;
import org.lizar.log.Logger;

public class ClassUtils {
	private static Log log = Logger.newInstance(ClassUtils.class);

	private ClassUtils() {
	}

	/**
	 * 从包package中获取所有的实例化Cell
	 * 
	 * @param pack
	 *            包名
	 * @return
	 */
	public static Set<Class<Cell>> getClasses(String pack,
			Set<Class<Cell>> classes) {
		String packageName = pack;
		String packageDirName = packageName.replace('.', '/');
		Enumeration<URL> dirs;
		ClassLoader cl = Thread.currentThread().getContextClassLoader();
		try {
			dirs = cl.getResources(packageDirName);

			while (dirs.hasMoreElements()) {
				URL url = dirs.nextElement();
				log.info("search location:" + url.toString());
				String protocol = url.getProtocol();
				if ("file".equals(protocol)) {
					String filePath = URLDecoder.decode(url.getFile(), "UTF-8");
					findAndAddClassesInPackageByFile(packageName, filePath,
							classes);
					continue;
				}
				if ("jar".equals(protocol)) {
					JarFile jar;
					try {
						jar = ((JarURLConnection) url.openConnection())
								.getJarFile();
						Enumeration<JarEntry> entries = jar.entries();
						while (entries.hasMoreElements()) {
							JarEntry entry = entries.nextElement();
							String name = entry.getName();
							if (name.charAt(0) == '/') {
								name = name.substring(1);
							}
							// 如果前半部分和定义的包名相同
							if (!name.startsWith(packageDirName))
								continue;
							int idx = name.lastIndexOf('/');
							// 如果以"/"结尾 是一个包
							if (idx != -1) {
								// 获取包名 把"/"替换成"."
								packageName = name.substring(0, idx).replace(
										'/', '.');
							}
							// 如果可以迭代下去 并且是一个包
							if (idx == -1)
								continue;
							// 如果是一个.class文件 而且不是目录
							if (name.endsWith(".class") && !entry.isDirectory()) {
								// 去掉后面的".class" 获取真正的类名
								String className = name.substring(
										packageName.length() + 1,
										name.length() - 6);
								Class t;
								try {
									t = cl.loadClass(packageName + '.'+ className);
									if (!t.isInterface()
											&& !Modifier.isAbstract(t
													.getModifiers())
											&& !t.isMemberClass()) {
										try {
											t.asSubclass(Cell.class);
											classes.add((Class<Cell>) t);
										} catch (Exception e) {
											continue;
										}
									}
								} catch (Throwable e1) {
									continue;
								}

							}
						}
					} catch (IOException e) {
						// log.error("在扫描用户定义视图时从jar包获取文件出错");
						e.printStackTrace();
					}

				}
			}
		} catch (IOException e) {
			e.printStackTrace();
		}

		return classes;
	}

	/**
	 * 以文件的形式来获取包下的所有Class
	 * 
	 * @param packageName
	 * @param packagePath
	 * @param recursive
	 * @param classes
	 */
	private static void findAndAddClassesInPackageByFile(String packageName,
			String packagePath, Set<Class<Cell>> classes) {
		// 获取此包的目录 建立一个File
		File dir = new File(packagePath);
		// 如果不存在或者 也不是目录就直接返回
		if (!dir.exists() || !dir.isDirectory()) {
			// log.warn("用户定义包名 " + packageName + " 下没有任何文件");
			return;
		}
		// 如果存在 就获取包下的所有文件 包括目录
		File[] dirfiles = dir.listFiles(new FileFilter() {
			// 自定义过滤规则 如果可以循环(包含子目录) 或则是以.class结尾的文件(编译好的java类文件)
			public boolean accept(File file) {
				return (file.isDirectory())
						|| ((file.getName().endsWith(".class")) && (file
								.getName().indexOf("$") == -1));
			}
		});
		// 循环所有文件
		for (File file : dirfiles) {
			// 如果是目录 则继续扫描
			if (file.isDirectory()) {
				findAndAddClassesInPackageByFile(
						packageName + "." + file.getName(),
						file.getAbsolutePath(), classes);
			} else {
				// 如果是java类文件 去掉后面的.class 只留下类名
				String className = file.getName().substring(0,
						file.getName().length() - 6);
				try {
					// 添加到集合中去
					// classes.add(Class.forName(packageName + '.' +
					// className));
					// 经过回复同学的提醒，这里用forName有一些不好，会触发static方法，没有使用classLoader的load干净
					if (StringHelper.isNull(packageName))
						continue;
					Class t = Thread
							.currentThread()
							.getContextClassLoader()
							.loadClass(
									packageName.replaceAll("/", ".") + '.'
											+ className);
					if (!t.isInterface()
							&& !Modifier.isAbstract(t.getModifiers())) {
						try {
							t.asSubclass(Cell.class);
							classes.add((Class<Cell>) t);
						} catch (Exception e) {
							continue;
						}
					}
				} catch (ClassNotFoundException e) {
					// log.error("添加用户自定义视图类错误 找不到此类的.class文件");
					e.printStackTrace();
				}
			}
		}
	}

	/**
	 * 得到方法参数名称数组 由于java没有提供获得参数名称的api，利用了javassist来实现
	 * 
	 * @return 参数名称数组
	 */
	public static String[] getMethodParamNames(Class<?> clazz, Method method) {
		Class<?>[] paramTypes = method.getParameterTypes();

		try {
			ClassPool pool = ClassPool.getDefault();

			pool.insertClassPath(new ClassClassPath(clazz));

			CtClass cc = pool.get(clazz.getName());

			String[] paramTypeNames = new String[method.getParameterTypes().length];

			for (int i = 0; i < paramTypes.length; i++)
				paramTypeNames[i] = paramTypes[i].getName();

			CtMethod cm = cc.getDeclaredMethod(method.getName(),
					pool.get(paramTypeNames));

			// 使用javaassist的反射方法获取方法的参数名
			MethodInfo methodInfo = cm.getMethodInfo();

			CodeAttribute codeAttribute = methodInfo.getCodeAttribute();
			LocalVariableAttribute attr = (LocalVariableAttribute) codeAttribute
					.getAttribute(LocalVariableAttribute.tag);
			if (attr == null) {
				throw new RuntimeException(
						"class:"
								+ clazz.getName()
								+ ", have no LocalVariableTable, please use javac -g:{vars} to compile the source file");
			}

			int startIndex = getStartIndex(attr);
			String[] paramNames = new String[cm.getParameterTypes().length];
			int pos = Modifier.isStatic(cm.getModifiers()) ? 0 : 1;

			for (int i = 0; i < paramNames.length; i++)
				paramNames[i] = attr.variableName(startIndex + i + pos);

			return paramNames;

		} catch (NotFoundException e) {
			e.printStackTrace();
			return new String[0];
		}
	}

	private static int getStartIndex(LocalVariableAttribute attr) {

		int startIndex = 0;
		for (int i = 0; i < attr.length(); i++) {
			if ("this".equals(attr.variableName(i))) {
				startIndex = i;
				break;
			}
		}
		return startIndex;
	}
}
